home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00007_Script_7 < prev    next >
Text File  |  1999-03-07  |  1KB  |  37 lines
  1. on exitFrame
  2.   global defaultflag
  3.   --  global togglestate
  4.   set defaultflag = false  
  5.   --  if the member of sprite 9 = "light1" then
  6.   --    set togglestate = 0
  7.   --  else 
  8.   --    set togglestate = 1     
  9.   --  end if
  10.   --  setupspecs
  11. end
  12.  
  13. on enterFrame
  14.   global currentChartName, cheraseflag, togglestate, compdrawplace, flag_specs
  15.   set compdrawplace = "specs"
  16.   set currentChartName = "ALL"
  17.   initcurrentplane
  18.   if cheraseflag then
  19.     -- erase competitor specs
  20.     set the text of member "disPlane" = "No Competitor"
  21.     --    set xcastnum = ( the number of member "CHDBaircrafts" ) + 1
  22.     --    erasedatabasefields(xcastnum)
  23.     --    set xcastnum = ( the number of member "CHDBconfig" ) + 1
  24.     --    erasedatabasefields(xcastnum)
  25.     set xcastnum = ( the number of member "CHDBdaircrafts" ) + 1
  26.     erasedatabasefields(xcastnum)
  27.     set xcastnum = ( the number of member "CHDBdconfig" ) + 1
  28.     erasedatabasefields(xcastnum)
  29.     set cheraseflag = false
  30.     setupspecs    -- read in specification values
  31.   end if
  32.   if flag_specs then
  33.     setupspecs    -- read in specification values
  34.     set flag_specs = FALSE
  35.   end if
  36. end
  37.